'*****************************
'Supeana_hyouji Ver0.1.1
'pare aki_dds_7.bas
'2007.07.02
'JA4LAO T.ito
'ATmega48-20PI 27MHz
'*****************************

Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Input                                      'int0
Config Portd.3 = Input
Config Portd.4 = Output
Config Portd.5 = Output
Config Portd.6 = Output
Config Portd.7 = Output

Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Input
Config Portb.3 = Output
Config Portb.4 = Output
Config Portb.5 = Output

Config Portc.1 = Output
Config Portc.2 = Output
Config Portc.5 = Input

Config Adc = Single , Prescaler = Auto


Dim A As Word
Dim B As Word
Dim C As Word
Dim D As Single
Dim E As Word
Dim F As Integer
Dim G As Word
Dim H As Word
Dim I As Word
Dim J As Byte
Dim K As Word
Dim L As Byte
'Dim S(2) As Word
Dim Level As Byte
Dim D_in(5) As Word
Dim M As Byte
Dim P As Bit
Dim Q As Bit

'S(1) = &B00000000
'S(2) = &B00111000
'Enable Interrupts
'Enable Int0

'On Int0 Syokika

Main:
E = 0
P = 0
Level = 10

Start Adc
Reset Portb.3

Do
  P = 0
  Gosub Lcd_hyouji
  'Wait 1
Loop
End

'------------------
Lcd_hyouji:

Set Portb.5
Set Portb.4
Reset Portb.4

For J = 1 To 3
     Gosub Hsync
Next J

Set Portb.4
For J = 1 To 4
     Gosub Hsync
Next J

Set Portb.3
Reset Portb.3

For K = 1 To 240
       Bitwait Pinb.2 , Set

       B = Getadc(5)

       D = B / 1023
       D = D * 480
       D = D + 3
       'D = D + Level
       B = D

       Gosub Datain
       Set Portb.3
       Waitus 10
       Reset Portb.3
Next K

For J = 1 To 5
     Gosub Hsync
Next J
Reset Portb.5
Reset Portb.4


Return

'---------------
Dck:
Set Portb.1
Reset Portb.1
Return
'---------------
Hsync:
Reset Portb.1

For I = 1 To 2
     Gosub Dck
Next I

Set Portb.1
Set Portb.5
Reset Portb.1

For I = 1 To 378
     Gosub Dck
Next I
Set Portb.1
Reset Portb.5
Return
'---------------
Datain:
Reset Portb.1
Reset Portb.5
For I = 1 To 2
     Gosub Dck
Next I

Set Portb.1
Set Portb.5
Reset Portb.1

For I = 1 To 48
     Gosub Dck
Next I

For I = 1 To 59
      Set Portb.1 : Reset Portb.0 : Gosub Kuro : Reset Portb.1
Next I

If K = 1 Then E = B                                         'B=atai  k=21 to 220
F = B - E
If F => 0 Then                                              'nobori kudari hantei
   G = E : H = B                                            'E=old data
   'C = H + 1
Else
   G = B : H = E
   'C = G + 1
End If
G = G + 20
G = G + Level
H = H + 20
H = H + Level
A = G - 1

For I = 60 To A
      Set Portb.1 : Reset Portb.0 : Gosub Kuro : Reset Portb.1
Next I

For I = G To H
      Set Portb.1 : Set Portb.0 : Gosub Midori : Reset Portb.1
Next I

C = H + 1
For I = C To 320
      Set Portb.1 : Reset Portb.0 : Gosub Kuro : Reset Portb.1
Next I
E = B

For I = 1 To 10
     Gosub Dck
Next I
Return

Datain2:
Reset Portb.1
Reset Portb.5
For I = 1 To 2
     Gosub Dck
Next I

Set Portb.1
Set Portb.5
Reset Portb.1

For I = 1 To 48
     Gosub Dck
Next I

For I = 1 To 320
      Set Portb.1 : Reset Portb.0 : Gosub Kuro : Reset Portb.1
Next I

For I = 1 To 10
     Gosub Dck
Next I
Return

Kuro:
Reset Portd.0
Reset Portd.1
Reset Portc.2
Reset Portc.1
Reset Portd.4
Reset Portd.5
Reset Portd.6
Reset Portd.7
Return

Midori:
Reset Portd.0
Reset Portd.1
Set Portc.2
Set Portc.1
Set Portd.4
Reset Portd.5
Reset Portd.6
Reset Portd.7
Return

Syokika:
B = 0 : E = 0
Goto Main
Return